home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-20
/
spkdsn_2.zip
/
ALPHA.ZIP
/
ALLPASS.BAS
next >
Wrap
BASIC Source File
|
1986-12-31
|
999b
|
29 lines
2 REM Copyright 1986, Arnold B. Krueger, Grosse Pointe Woods, MI, 48236
5 PRINT "Unity gain 2nd order all-pass design program"
10 PI = ATN(SQR(3!))*3!
20 INPUT "Enter desired Q: hit enter for Bessel (.577) ",Q
30 IF Q = 0 THEN Q = 1!/SQR(3!)
40 INPUT "Enter desired Design Frequency: or hit enter to set delay ",F
50 IF F<>0! THEN DELAY = 1!/(2!*F)
60 PRINT "Delay is ";DELAY;" Sec"
70 INPUT "enter delay, in MicroSeconds, if Different: ",US
80 US = US/1000000!
90 IF US <> 0 THEN F = 1!/(2!*US)
100 DELAY = 1!/(2!*F)
110 INPUT "Enter desired capacitance,Pf: ",C
120 C= C/1000000!
130 C= C/1000000!
140 W = 2!*PI*F
150 RS = 1!/(2!*C*W)
160 ALPHA = (3!* Q - 1!)/(3!* Q + 1!)
170 R0 = 36!*RS/((1!+ALPHA)*(2!-ALPHA))
180 TC = RS*C
190 R1 = R0*(1!+ALPHA)/3!
200 R2 = RS*4!
210 R3 = R0*(2!-ALPHA)/3!
220 R4 = RS/ALPHA
230 R5 = RS/(1!-ALPHA)
240 PRINT "Q ";Q;" C ";C*1000000!;"uF F ";F;"Hz, Delay ";DELAY;" Sec"
250 PRINT "R1 ";R1;" R2 ";R2;" R3 ";R3;" R4 ";R4;" R5 ";R5